home *** CD-ROM | disk | FTP | other *** search
/ The Netter Presenter: Ur…ion in Overactive Bladder / The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso / mac / UrinarySystem.app / Contents / Main.dxr / Internal_93_duplicate image in list.ls < prev    next >
Encoding:
Text File  |  2005-01-18  |  1.0 KB  |  30 lines
  1. global gTNStartChannel, glCurrentListData, gCurrentList, gListObject
  2.  
  3. on mouseUp me
  4.   if gCurrentList = EMPTY then
  5.     exit
  6.   end if
  7.   if sprite(me.spriteNum).blend <> 100 then
  8.     exit
  9.   end if
  10.   if not (value(gListObject).pSelectedImageSpriteNum = 0) then
  11.     selectionPosition = value(gListObject).pSelectedImageSpriteNum - gTNStartChannel + (6 * (value(gListObject).pImageScroll - 1))
  12.     addAt(value(gListObject).plFoundImages, selectionPosition + 1, getAt(value(gListObject).plFoundImages, selectionPosition))
  13.     tempList = []
  14.     repeat with a = 1 to selectionPosition
  15.       append(tempList, getAt(glCurrentListData, a))
  16.     end repeat
  17.     append(tempList, getAt(glCurrentListData, selectionPosition))
  18.     repeat with c = selectionPosition + 1 to glCurrentListData.count
  19.       append(tempList, getAt(glCurrentListData, c))
  20.     end repeat
  21.     glCurrentListData = duplicate(tempList)
  22.     DisplayThumbNails()
  23.     UpdateImageScroller()
  24.     UpdatePersonalFileData()
  25.     WritePersonalFileNoDialog()
  26.   else
  27.     alert("Select an image first.")
  28.   end if
  29. end
  30.